program testBooleanTrue;

class testBooleanTrue

BEGIN
   VAR aa : boolean;
      
FUNCTION testBooleanTrue; 
BEGIN
   aa := True;
   PRINT aa
END
   
END   
.

